0 S=10
1 DIM ST(S)
2 DIM SL(S)
3 DIM OX%(S)
4 DIM OY%(S)
5 DIMSP(S)
6 REM
7 FORI=0TOS:SL(I)=0:ST(I)=((RND(1))*2*(null)):OX(I)=1:OY(I)=1:SP(I)=RND(1)*2+0.5:NEXT
8 POKE53280,0:POKE53281,0:PRINT"[147]  [144]JUPP3 PRESENTS:"
9 PRINT"  A MULTIMEDIA PRESENTATION AT":PRINT"  DATAPARTY 2003 CALLED"
10 PRINT"  -LAMEUS MAXIMUS-":PRINT" (JEE)"
11 FORI=55296TO56295:POKEI,1:NEXT
12 PRINT"[147]"
13 FORI=0TO79:POKE55296+I,11:POKE56216+I,11:POKE55376+I,12:POKE56136+I,12
14 POKE55456+I,15:POKE56056+I,15:NEXT
15 FORI=2TO23:POKE55296+I*40,11:POKE55297+I*40,11:POKE55334+I*40,11
16 POKE 55335+I*40,11:NEXT
17 FORI=4TO21:POKE55298+I*40,12:POKE55299+I*40,12:POKE55332+I*40,12
18 POKE55333+I*40,12:NEXT
19 FORI=6TO19:POKE55300+I*40,15:POKE55301+I*40,15:POKE55330+I*40,15
20 POKE55331+I*40,15:NEXT
21 REM
22 FORU=0TO12
24 FORI=0TOS:SL(I)=SL(I)+SP(I):X%=20+SL(I)*SIN(ST(I)):Y%=12+SL(I)*COS(ST(I))
25 POKE1024+OY%(I)*40+OX%(I),32
30 IF(X%<0)OR(X%>39)OR(Y%<0)OR(Y%>24)THENGOTO100
35 REM
40 POKE1024+40*Y%+X%,46
45 OX%(I)=X%:OY%(I)=Y%
50 NEXTI
60 NEXTU
70 GOSUB410
80 GOTO200
100 SL(I)=0:ST(I)=(RND(1)*2*(null)):SP(S)=RND(1)*2+0.5:X%=20:Y%=12:GOTO40
200 REM * CUBE *
201 FORU=0TO30
205 FORI=0TO100:NEXTI
210 PRINT"[147]"
215 REM
220 X=INT(RND(1)*6+1)
230 ONXGOTO290,300,310,320,330,340
235 NEXTU
236 GOSUB410
237 REM
240 PRINT"[147][144]  OF COURSE, LAST PART IS THE BEST"
241 PRINT"  COMING NEXT IS:"
250 PRINT"  TEXTURE MAPPED SHADED 3D LANDSCAPE"
251 PRINT"  PRESS ANY KEY TO SKIP TO CREDITS,"
260 PRINT"  OR ANY OTHER KEY TO GO TO LAST PART"
261 FORI=55296TO56295:POKEI,1:NEXT
270 GETA$
271 IFA$=""THENGOTO270
280 GOSUB410
281 GOTO500
290 PRINT"  [175][175][175][175][157][157][157][157][157][206]   [206][180][157][157][157][157][157][157][157][206]   [206] [180][157][157][157][157][157][157][157][207][183][183][208]  [180]";
291 PRINT"[157][157][157][157][157][157][157][180]  [170]  [180][157][157][157][157][157][157][157][180]  [170] [206][157][157][157][157][157][157][204][175][175][186][206]"
292 GOTO400
300 PRINT" [175][175][175][175] [157][157][157][157][157][157][170][205]   [205][157][157][157][157][157][157][170] [205]   [205][157][157][157][157][157][157][157][170]  [207][183][183][208]";
301 PRINT"[157][157][157][157][157][157][157][170]  [180]  [170][157][157][157][157][157][157][205] [180]  [170][157][157][157][157][157][205][204][175][175][186]"  "
302 [137]400
310 [153]"(null)USRUSR(null)(null) CMDCMDCMDCMDCMDCMDSGN  + (null)CMDCMDCMDCMDCMDCMDSGN  +  SGNCMDCMDCMDCMDCMDCMDCMD(null)ANDANDSQR  SGN";
311 [153]"CMDCMDCMDCMDCMDCMDCMD(null)   (null) SGNCMDCMDCMDCMDCMDCMD(null)   (null)SGNCMDCMDCMDCMDCMDUSRUSRUSRUSR"
312 [137]400
320 [153]" (null)(null)USRUSR(null)CMDCMDCMDCMDCMDCMDCMD (null) SGN  +CMDCMDCMDCMDCMDCMDCMD+  SGN  +CMDCMDCMDCMDCMDCMDCMD+  (null)ANDANDSQR";
321 [153]"CMDCMDCMDCMDCMDCMDCMD+ (null)   (null)CMDCMDCMDCMDCMDCMDCMD+(null)   (null)CMDCMDCMDCMDCMDUSRUSRUSRUSR"
322 [137]400
330 [153]"      CMDCMDCMDCMDCMDCMDCMD (null)USRUSR(null)CMDCMDCMDCMDCMD SGN  +  CMDCMDCMDCMDCMDCMDCMD SGN  +";
331 [153]"CMDCMDCMDCMDCMDCMDCMD   (null)ANDANDSQR"
332 [137]400
340 [153]"  (null)(null)  CMDCMDCMDCMDCMD(null)  (null)CMDCMDCMDCMDCMD(null)    (null) CMDCMDCMDCMDCMDCMDCMD(null)    (null)";
341 [153]"CMDCMDCMDCMDCMDCMDCMD  (null)  (null)CMDCMDCMD(null)(null)"
342 [137]400
400 [130]U
405 [137]240
410 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(ON"
411 [153]"ONUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
412 [153]"ONFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
413 [153]"ONNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
414 [153]"ONPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
415 [153]"ONANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
416 [153]"ONTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
417 [129]U[178]0[164]24
418 [153]"ON                                        "
419 [130]U
420 [153]"ONTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
421 [153]"ONANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
422 [153]"ONPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
423 [153]"ONNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
424 [153]"ONFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
425 [153]"ONUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
426 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(ON"
427 [129]U[178]0[164]24
428 [153]"ON                                        "
429 [130]U
430 [142]
500 [143] * GREETZ *
501 [153]"LOADSTOP  GREETINGS TO:"
502 [153]"  DEKADENCE FOR ORGANIZING THIS PARTY"
503 [153]"  KOIRA (SHAME, YOU COULDN'T COME HERE)"
504 [153]"  (NO GREETINGS TO HIS DAD)"
505 [153]"  ALL SCENERS AROUND THE WORLD!"
506 [153]"  ...AND LAST BUT NOT LEAST:"
507 [153]"  GREETINGS TO EVERYONE ATTENDING"
508 [153]"  DATAPARTY 2003!"
509 [153]"  (INCLUDING MYSELF)"
510 [153]"  * THE END*"
520 [129]I[178]55296[164]56295:[151]I,1:[130]
999 [128]
1000 [143]
1001 [143]
1002 [143]
1003 [143]
1004 [143]
1005 [143]
1006 [143]
1007 [143]